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B-5500 ESSEf^CE OF hC 
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P : N0V»1968 P,LfG. 
V SYSTEM HELEASE 
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00020110 
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* 
*; 
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00020118 
00020119 
QQ030Q00 



DEFINE 

ARRAY 

DEFINE 



Ms 



MEMORY #/ 
UATA [*J; 



P=PQLlbH »; 



00040000 
OOObOOOO 
QQUOOOQ . O 



DEFINE 
DEFINE 
DEFINE 



BASE = M 
OIRECTOPs M 
nTSK . » M 



t03 #i 

C13 #r 



OOO/'OOOO 
00080000 
QO UVQ OO fl 



DEFINE 
DEFINE 
DEFINE 



INDX 

MODS 

nosy;? 
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DEFINE 
OEi^lNE 
INTEGER 



R a M 
SYSTEM « M 
PROCVAL 9 * 
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JJ 



00130000 

oouoooo 

■ QQ15Q0QQ 



SAVE 



INTEGER 
LABEL 
REA L PROC ED UR E 



findmem; 

TIMER'STaRT'TUPQCUdE. 

e cm; 



00160000 
00170000 
0Q 1800 0Q 



BE6IN 
SAVE REAL PROCEDURE 
.—_ .^ „ VALU E 



GO TU TIMER 
10 (DESO; 

DESC; 



end; 



XTHIS 



FIRES OFF THE 10 



00190000 

00200000 
00210000 



REAL DESC; 



BEGIN 
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BEGlJl. 



P(C0ESC]MIO)| 

R ♦ eom; 

10 *- R .Cg^'83 



00220000 
00230000 
00240000 



002SQ000 
00260000 
00270000 



END UNTIL CPROCVAl ANQ 5)=0; 



SAVE 



end; 

procedure diskreeu (desqi 
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002 
003 



80000 
^0000 
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VALUE 

REAL 
BEGIN 



desc; 

DESc; 
streamca 



«• dASE + AaQRES5,BieDESC.i:33»15]); 



003 

003 

.001 



10000 
20000 
30QOQ 



BEGIN S1«=.L 
IF M[DESC],t5!l 

jm — R^ igcotacj 



L'C a;di !»ti;DSj«8 dec; lnd; 

3 THEN DESC. C3;51«-12;* 
UNTIL R«Q« 



OOJ 
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4U000 
45000 
50000 



TOPQCOOE 
T T MER 



END I 
i#20t 



60 TO start; * FIHST CODE 

Pf INn?IF NOT riNDMEM THEN ^Tl MER 
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TO 



start; 
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% SPU 
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UP FOR INVD ADDR 
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GO TO 
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timer; 
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LQD/R TN J; 
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% I-U 1 COMPLETE 

% . 1- 9 2 CQMP U ETE 
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GO TO 
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timer; 
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X DATA CQMM 
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t«>37J 



GO TO 
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START! 
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4j 

''■'I 
4S 

4« 

l4?l 

48 

48 

50 

?1 

S2 

f.3 

64 

5b 

56 



^ 



2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 



13 



IS 



16 
17 



19 
20 



21 
22 
23 
24 



2S 

I 26 ". 
27 
28 



30 

31 " 
, J2 

33 

34 
, 35 

36 



39 

40 

42 



4S 
46 

48 



START J* 



P((?100*STS); * SET STACK TO OCT iQO 
M[M00S := MODS + tfilOOOU] i= o; * FIND 
PC iHlii ir. CH1;:CK FUH INVQ AODR^.as 



MOD TO LOAD MCP 



IF MODS GTR P70000 
BEGIN MODS t» O; 
fin in start; 



tmen 



OQtJSOOOO 
00b40000 



00560000 
0057000Q 
onSaooon 



end; 

FINDMLM :5 true; 

DATA *T.ur f^PC.FDMjnNX 



1003 J & lQii 3[ B{ 3 g,UQ3 x 



DISK * DATA.taansi; 

MtDISK3 «" 9UD} 



0C5900OO 
OC600000 
QQ61,O0QQ 



IF 10 (PHOOOAOOOOOOOOOi DISK t33J33:i5]) = TmEN 
BEGIN 

sr.sTFM t datati i.u.tit*]; 
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00630000 
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MCOISK]*- ?40oO&SyStEM IJQiHH'i}, *CLEAR CONTENTION 00680000 
PCl0(*l4000OlQ000O0O0 &DlSK C 33» 33 J ISJI # DEL ); X BITS 00690000 
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INDX *■ INDX + CSYbTEM x 53; 



C33S33Sl53)/DEL); 



MCDISK3 J» O; :«o£T AUUREbb TO 2ERL 

DO R*iO(DISK INX ?1400Q004ni 00000 J UNTIL RaO' 

rvfRFr.Tnp ia haTa r^ii 
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NOSYS ;» DATA [u; 
BASE J= DATA tiNDx]; 
IF BA fSE LF G) DIRECT H P i nEN 
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00760000 



Begin mc«'463 

MtP47] 

McP'ini 
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Ss 32124,^45li?56i>6260; XaDDRESS 
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fnd; 



P(lUce7400000000OO046)*UEL); 
DO UNTIL FALbE; 
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X begin loading MCf» 
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ADDRESS 4- 10; 
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ADDRESS 4. oj 
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OISkREED (#140000041200017 or mods 3 i 
% END MCP LOAD 
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OQ^/'QQ QQ 



GO TO P([MC*»lb)3); 
WHILE TRUt DU; 
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